      integer nmax_planes,lbuf
      parameter (nmax_planes=4096, lbuf=2*nmax_planes+24)
      integer file_id(0:nmax_planes-1)
      integer plane_offset(0:nmax_planes-1)
      integer nplanes,ndim

      integer zero_point 

      common /planes_c/ ndim, file_id, plane_offset, nplanes, zero_point

 

